home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD023B.D64 / disk sleeve .exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.4 KB  |  115 lines
  1. 10 REM ********************************
  2. 11 REM *                              *
  3. 12 REM *  ANY QUESTIONS, COMMENTS OR  *
  4. 13 REM *      SUGGESTIONS ABOUT       *
  5. 14 REM *    DISK SLEEVE MAKER V1.4    *
  6. 15 REM *       CAN BE SENT TO:        *
  7. 16 REM *                              *
  8. 17 REM *     LEE BRIAN HUTCHISON      *
  9. 18 REM *     846 CLIFTON STREET       *
  10. 19 REM *     WINNIPEG, MANITOBA       *
  11. 20 REM *      R3G 2Y1   CANADA        *
  12. 21 REM *                              *
  13. 22 REM *       (204) 775-3336         *
  14. 23 REM *                              *
  15. 24 REM ********************************
  16. 30 POKE53280,0:POKE53281,0
  17. 40 PRINTCHR$(147):PRINT""TAB(9)"DISK SLEEVE MAKER V1.4"
  18. 45 PRINT""TAB(9)"BY LEE BRIAN HUTCHISON"
  19. 50 PRINT"  INSERT THE PAPER, HAVING THE PRINTER"
  20. 60 PRINT"  HEAD BELOW THE TOP EDGE.  WHEN DONE,"
  21. 65 PRINT" TURN THE PRINTER ON AND HIT ANY KEY TO"
  22. 70 PRINT"     START PRINTING OUT THE SLEEVE."
  23. 80 GETA$:IFA$=""THEN80
  24. 83 PRINTCHR$(147)
  25. 84 PRINT"      NOW PRINTING.....PLEASE WAIT"
  26. 100 OPEN12,4:SI$=CHR$(15):BS$=CHR$(8)
  27. 105 FOR X=1 TO 4
  28. 110 PRINT#12,SI$"           [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  29. 115 PRINT#12,SI$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"BS$
  30. 120 FOR X=1 TO 6
  31. 125 PRINT#12,SI$"           [221]                                       ";
  32. 130 PRINT#12,SI$"                [221]"BS$
  33. 135 NEXT X
  34. 140 PRINT#12,SI$"           [221]               DO NOT FOLD - DO NOT BEN";
  35. 145 PRINT#12,SI$"D               [221]"BS$
  36. 147 PRINT#12,SI$"           [221]                                       ";
  37. 149 PRINT#12,SI$"                [221]"BS$
  38. 150 PRINT#12,SI$"           [221]                      NE PAS PLIER     ";
  39. 155 PRINT#12,SI$"                [221]"BS$
  40. 160 FOR X=1 TO 3
  41. 165 PRINT#12,SI$"           [221]                                       ";
  42. 170 PRINT#12,SI$"                [221]"BS$
  43. 175 NEXT X
  44. 180 PRINT#12,SI$"           [221]      DO NOT TOUCH EXPOSED AREAS OF MAG";
  45. 185 PRINT#12,SI$"NETIC DISK      [221]"BS$
  46. 187 PRINT#12,SI$"           [221]                                       ";
  47. 189 PRINT#12,SI$" [206]   [206]          [221]"BS$
  48. 190 PRINT#12,SI$"           [221]        NE PAS TOUCHER AUX SURFACES MAG";
  49. 195 PRINT#12,SI$"NETISEES        [221]"BS$
  50. 200 FOR X=1 TO 3
  51. 205 PRINT#12,SI$"           [221]                                       ";
  52. 210 PRINT#12,SI$"                [221]"BS$
  53. 215 NEXT X
  54. 220 PRINT#12,SI$"           [221]            KEEP AWAY FROM MAGNETIC FIE";
  55. 225 PRINT#12,SI$"LDS             [221]"BS$
  56. 227 PRINT#12,SI$"           [221]             [206]                       [206] ";
  57. 229 PRINT#12,SI$"                [221]"BS$
  58. 230 PRINT#12,SI$"           [221]           A ELOIGNER DES CHAMPS MAGNET";
  59. 235 PRINT#12,SI$"IQUES           [221]"BS$
  60. 240 FOR X=1 TO 3
  61. 245 PRINT#12,SI$"           [221]                                       ";
  62. 250 PRINT#12,SI$"                [221]"BS$
  63. 255 NEXT X
  64. 260 PRINT#12,SI$"           [221]                    INSERT CAREFULLY   ";
  65. 265 PRINT#12,SI$"                [221]"BS$
  66. 267 PRINT#12,SI$"           [221]                      [206]                ";
  67. 269 PRINT#12,SI$"                [221]"BS$
  68. 270 PRINT#12,SI$"           [221]                   INSERER AVEC SOIN   ";
  69. 275 PRINT#12,SI$"                [221]"BS$
  70. 280 FOR X=1 TO 3
  71. 285 PRINT#12,SI$"           [221]                                       ";
  72. 290 PRINT#12,SI$"                [221]"BS$
  73. 295 NEXT X
  74. 300 PRINT#12,SI$"           [221]              RETURN TO ENVELOPE AFTER ";
  75. 305 PRINT#12,SI$"USE             [221]"BS$
  76. 307 PRINT#12,SI$"           [221]                                     [205] ";
  77. 309 PRINT#12,SI$"                [221]"BS$
  78. 310 PRINT#12,SI$"           [221]          RANGER DANS L'ENVELOPPE APRES";
  79. 315 PRINT#12,SI$" L'USAGE        [221]"BS$
  80. 320 FOR X=1 TO 3
  81. 325 PRINT#12,SI$"           [221]                                       ";
  82. 330 PRINT#12,SI$"                [221]"BS$
  83. 335 NEXT X
  84. 340 PRINT#12,SI$"           [221]                     50 F - 125 F      ";
  85. 345 PRINT#12,SI$"                [221]"BS$
  86. 347 PRINT#12,SI$"           [221]                                       ";
  87. 349 PRINT#12,SI$"                [221]"BS$
  88. 350 PRINT#12,SI$"           [221]                     10 C - 52 C       ";
  89. 355 PRINT#12,SI$"                [221]"BS$
  90. 360 FOR X=1 TO 4
  91. 365 PRINT#12,SI$"           [221]                                       ";
  92. 370 PRINT#12,SI$"                [221]"BS$
  93. 375 NEXT X
  94. 380 PRINT#12,SI$"      [213][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  95. 385 PRINT#12,SI$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][201]"BS$
  96. 390 FOR X= 1 TO 33
  97. 395 PRINT#12,SI$"      [221]    [221]                                       ";
  98. 400 PRINT#12,SI$"                [221]    [221]"BS$
  99. 410 NEXT X
  100. 420 PRINT#12,SI$"      [202][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  101. 430 PRINT#12,SI$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][203]"
  102. 440 CLOSE12
  103. 441 PRINTCHR$(147):PRINT"  CUT OUT THE OUTLINE, FOLD ALONG THE"
  104. 442 PRINT"     LINES AND GLUE THE FLAPS DOWN."
  105. 444 PRINT"      NOW YOU HAVE A DISK SLEEVE."
  106. 445 PRINT"        HIT ANY KEY TO CONTINUE."
  107. 446 GETA$:IFA$=""THEN446
  108. 450 PRINTCHR$(147)
  109. 460 PRINT"   WOULD YOU LIKE ANOTHER ONE?  (Y/N)"
  110. 470 GETA$:IFA$=""THEN470
  111. 480 IFA$="Y"THEN30
  112. 490 IFA$<>"Y"ANDA$<>"N"THEN470
  113. 500 PRINTCHR$(147)
  114. 510 PRINT"  THANKS FOR COMING.  GOODBYE FOR NOW."
  115.